Top 10k strings from Bridge Player (1983)(CP Software).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /
Back to the directory listing
4 ;e$;" ";e$;
3 v$(v)=r$(c):
3 k$(b)=("P"
3 k$(b)=("2"
3 a(op-n+t)>0
3 PRESS A KEY
3 ;e$;" ";e$:
3 " ";j$(v,w);:
2 x+w,y+v;e$:
2 k$(b)=("3"
2 k$(b)="Pass":
2 k$(b)="P":
2 k$(b)="4"+s$(t):
2 k$(b)="3"+s$(t):
2 j$(o,w)>v$(2
2 j$(m,a(m)):
2 j$(l)=j$(l,
2 e$(t)*(t<5
2 a(l)=a(l)-1
2 WELCOME TO
2 ;"F. VACHHA
2 ;"Contract"'f$(1
2 ,y;e$;" ";e$;
2 ,y;e$;" ";e$;
2 ,y;e$;" ";e$;
2 )>j$(ol,u)
2 ))+(j$(o,3
2
1 y;" trick";("s"
1 y$(v)="0003":
1 y$(a)="100"+
1 x+v,y;e$;" ";e$:
1 w$="AAAAAAAAAA":
1 vfff)+(j>19
1 v$(v)=r$(t):
1 v$(v)=r$(t)+j$(m,w):
1 v$(v)=r$(n):
1 v$(v)=r$(n)+j$(o,w):
1 v$(v)="ne"
1 v$(v)="NE"
1 s333)+s$(p):
1 s333)+("3"
1 s$(t))+(x<69
1 s forbidden."'"The current hands have now been deleted,together with any pointsarising therefrom."'"
1 proved by";
1 p$=("Vul:none"
1 m$>"F")+(100
1 m$="J")+(200
1 m$="F")+(400
1 m$="E")+(300
1 k$(b)=f$(1
1 k$(b)=("3"+s$(p)
1 k$(b)="Rdbl":
1 k$(b)="Dble":
1 k$(b)="D":
1 k$(b)="6"+s$(4
1 k$(b)="5"+s$(t):
1 k$(b)="5"+s$(4
1 k$(b)="5"+h$(2
1 k$(b)="3"+s$(p):
1 k$(b)="2"+s$(t):
1 k$(b)="2"+s$(p):
1 k$(b)="1"+s$(p+3
1 k$(b)="1"+s$(p):
1 k$(b)="1"+s$(n):
1 j$(v)=j$(v+16
1 j$(u)=j$(u+4
1 j$(ol,u)=" "
1 j$(o,w)>v$(1
1 j$(o,w)>j$(ol,u)
1 j$(m,w)>v$(v-1
1 j$(m,w)>j$(ol-n+t,1
1 j$(l,w)=v$(v,2
1 i$=i$+b$(k,w)
1 h$=h$+b$(k,w):
1 g(c)=g(c)+p:
1 g(b)=g(b)+q
1 g(a)=g(a)+o:
1 g$=g$+b$(k,w):
1 g$=("1342"
1 g$="1234":
1 g$(w)=g$(w+1
1 ffff*(u=10
1 f(w);v$(w):
1 f(v);v$(v,1
1 f(v);v$(v)
1 f$=f$+b$(k,w):
1 f$)="x")+("x"
1 e=e-d(k)+j-(2
1 e=d(k)+(13
1 e(w)=e(w+1
1 e(w)<e(w+1
1 e(a)=a(l):
1 e$(t)>"0"))
1 e$(t)<"3")+"4"+s$(t):
1 d=(a(or)*a(ol)=0
1 d(v)=d(v+1
1 d(k)=d(k)+3
1 d(k)=d(k)+(c$="
1 d(k)=d(k)+(c$(1
1 d(k)=c(k)+d(k)
1 d$(v)=t$+"98765432":
1 d$(v)=d$(v+1
1 d$(b(w))=d$(b(w),
1 c,d;v$(v,2
1 c+x,b;s$(x);" ";:
1 c(v)=c(v+1
1 c(k)=c(k)+
1 c$(w)>c$(w-1
1 c$(w)=c$(w-1
1 b$(v)=a$(v*26
1 a(v)=a(v+16
1 a(u)=a(u+4
1 a(or-n+t-(t=5
1 a(op)>a(or)
1 a(op)>a(ol))
1 a(op)<a(o)
1 a(ol-n+t-(t=5
1 a(ol-n+t)=0
1 a(ol)+a(or)>0
1 You have attempted to break intothe program - this is forbidden.The current deal has been erased"'"
1 To start a new deal,
1 The program takes 4 mins to load":
1 The program is protectedagainst BREAK. However,trying tobreak into it at certain crucialstages (during shuffling) might,just possibly,induce an error...
1 SUPERSOFT SYSTEMS
1 SHDCNshdcnS
1 R.WHEEN 1983
1 Prestwood,Bucks
1 Press any letter to continue
1 Press 4 if you want to play all four hands yourself. Press 2 if you want the computer to play the defenders' hands. ";
1 London E17 5RY
1 Improved by";
1 Improved Version by F.A.Vachha
1 Hand no.";h;
1 Hand ";h'"
1 For next hand press N";
1 Dealer:";o$(d)'
1 Congratulations
1 CP SOFTWARE
1 Bridge
1 AKQJ1akqjtR
1 A3AA1AAAAAX
1 =x+2x)=x+2
1 =x+1x)=x+1
1 ;l$;l$;l$;l$;l$;l$:
1 ;j$(l,w);" ";:
1 ;e$;e$;e$:
1 ;("exactly"
1 ;"you wish to select.";
1 ;"without penalty ";
1 ;"with ";y;" overtrick";("s"
1 ;"computer shuffles, deals";
1 ;"and sorts the cards"
1 ;"You and your partner hold a majority of the points and have been talked out of this contract. To bid the hand again, press R. Otherwise press N for the next hand."
1 ;"To review last hand press R
1 ;"The contract is ";f$(1
1 ;"Soon the opening lead will be made and dummy will go down."''''" If at any time you want to go on to the next hand, enter ""NEXT"" instead of a card.";
1 ;"Slam bid and made
1 ;"Rubber complete";
1 ;"Please wait while the";
1 ;"Please wait"
1 ;"Now press the option";
1 ;"LOADING";
1 ;"Hand passed out":
1 ;"Hand no.";h;" coming up";
1 ;"Hand no.";h;
1 ;"Dealer":
1 ;"Bidding complete";
1 ;"At `1 per point";
1 ;"1 or 2?"
1 ;" by ";o$(de):
1 ;" by ";b$(k,
1 ;" Tricks "'" ****** "'"N/S E/W"'" ";g;
1 ;" is ";
1 ;" This is your hand as
1 ;" "'"
1 ;" ":
1 91 Manor Road,
1 17 Orchard Lane
1 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
1 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
1 00000000000000000000000000000000000000000000000000000000000000000000000000000000
1 -(g(w+x)>99
1 ,y;e$;" ";e$:
1 ,v;j$(m,z);
1 , the ultimate 16/48K Spectrum Toolkit. You canbuy
1 +a(or)+a(ol)
1 +(p>t))+s$(p):
1 +(n>p))+s$(n):
1 +((j$(or,2
1 *gg-(g(c)=0
1 *(u=t))*((u=t
1 *(a(or)*a(ol)>0
1 )>e$(a(o)-(a(o)>1
1 )>"3")+("2
1 )>"3")+"P":
1 )=u$(w)+" ":
1 )=j$(l,a(l)):
1 )=d$(b(w),v)
1 )="West 4":
1 )="South5":
1 )="North5":
1 )="East 4":
1 )<e$(a(o)+(j$(op,1
1 );o$(p+w-4
1 );j$(y+x,w);" ";:
1 );" win `";
1 )-(g(w+x)>999
1 ),"Declarer ";b$(de,
1 )+u$(t)+("x"
1 )+j$(l,w+1
1 )+d$(b(w),v+1
1 )+("N/S game"
1 )+("Game all"
1 )+("E/W game"
1 )+("4"+s$(t)
1 )+(" N/S "+
1 )+(" E/W "+
1 ));" to play. Enter card ";
1 ));" to play again";
1 ))+(d(k)>9
1 ))+("3"+s$(n)):
1 ))*(f-(f<4
1 )))+s$(n):
1 )))+("4"+s$(p)
1 )'"Dealer ";b$(d,
1 (j$(o,w)>v$(3
1 (e$(t)>"2"
1 (d(k)>16.6
1 (d(k)<14.4
1 (a(o)+a(op)>2
1 ''"This program is protected by 'ONERROR GOTO',one of
1 "Your bid? ";
1 "Hand no.";h,"Contract ";f$(1
1 "Enter declarer ";
1 "Enter contract ";
1 "Emergency Exit."''"
1 ";" ";(b$(k,
1 ")+(k$(v,1
1 "'''"1 - play the game of Bridge proper i.e. initially see only your own hand, bid it and then, with dummy dis- played, play the hand as declarer."''"2 - see all four hands, decide on the contract, then play the hand.";
1 " defeated";
1 " ";j$(v-8
1 for `9.95 from:-"
1 R.WHEEN 1983
1 Press - P for print-out, R to replay hand or N for next hand.
1 M/C rout-ines in
1 F.A.VACHHA
1 O
1
1
1
1
1